www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel\D_edit_chnl.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
Server.ScriptTimeout = 99999
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
if cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then
response.redirect "../D_admin_s"&"e.asp"
response.end
end if
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
if find_dataw("qitashezhi123","0",10)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
biao="[ND_channel]"
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 800 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<script language= JavaScript>
function SelectPic(){
var arr=window.open('../D_select_upload_pic.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600');
if(arr!=null){
//var ss=arr.split('|');
//document.all.myform.ImageUrl.value=ss[0];
//document.myform.ImageFileList.value=ss[0];
}
else
{
alert("弹出窗口被系统拦截掉了,请修改你系统设置")
}
}
</script>
<%
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select * from "&biao&" where id="&request("id"),conn,1,1
%>
<form action="D_chk_edit_chnl.asp" method="post" target="_self" name="myform" id="myform">
<table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td>
<table height="589" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td height="30" align="center" class="adminth" colspan="2"><span class="STYLE3">添加频道 </span></td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>频道类型：</strong></td>
<td width="608" height="30" align="left" bgcolor="#EDF8FE">
<!--#include file=D_inc_lanmu_type.asp-->
<%call bb()%>
<font color="red">*</font></td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>频道名称：</strong></td>
<td width="608" align="left" bgcolor="#EDF8FE"><input name="title" type="text" id="title" size="60" value="<%=rs22("name")%>">
<font color="red">*</font></td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>频道内部链接文件(请使用绝对路径,可以前面加上/<%=nd_web_output_folder%>/)：</strong></td>
<td width="608" align="left" bgcolor="#EDF8FE">
<input name="urlbff" type="text" id="urlbff" size="60" value="">
<input name="urlb" type="hidden" id="urlb" value="">
<font color="red"> (请勿乱改)*</font></td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>顺序号:</strong> </td>
<td width="608" align="left" bgcolor="#EDF8FE">
<input type="text" size=10 value="<%=rs22("orders")%>" name="orders"/>
</td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>是否隐藏频道：</strong></td>
<td width="608" align="left" bgcolor="#EDF8FE"><input type="radio" name="ish" value="0" <%if rs22("is_hidden")="0" then response.write "checked"%>> 否
<input type="radio" name="ish" value="1" <%if rs22("is_hidden")="1" then response.write "checked"%>> 是
</td>
</tr>
<script language="javascript">
var tx1="<%=rs22("lanmu_type")%>";
var tx2=document.getElementById("urlbff");
var tx3=document.getElementById("urlb");
doo();
</script>
<tr>
<td width="165" height="30" align="left" bgcolor="#ffffff"><strong>连接目标: </strong></td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<input type="radio" value="0" name="LinkTarget" <%if rs22("is_open_use_blank")="0" then response.write "checked"%>> 本窗口打开
<input type="radio" name="LinkTarget" value="1" <%if rs22("is_open_use_blank")="1" then response.write "checked"%>> 新窗口打开
</td>
</tr>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong><b>频道标题样式</b>：</strong></td>
<td width="608" align="left" bgcolor="#EDF8FE">
频道颜色：
<select size="1" name="ColorMode">
<option value="0" <%if rs22("titleColor")="0" then response.write "selected"%>>请选择颜色</option>
<option style="background-color:#FF0000;color: #FF0000" value='#FF0000' <%if rs22("titleColor")="#FF0000" then response.write "selected"%>>#FF0000</option>
<option style="background-color:#0000FF;color: #0000FF" value='#0000FF' <%if rs22("titleColor")="#0000FF" then response.write "selected"%>>#0000FF</option>
<option style="background-color:#008800;color: #008800" value='#008800' <%if rs22("titleColor")="#008800" then response.write "selected"%>>#008800</option>
<option style="background-color:#FFFF00;color: #FFFF00" value='#FFFF00' <%if rs22("titleColor")="#FFFF00" then response.write "selected"%>>#FFFF00</option>
<option style="background-color:#9900FF;color: #9900FF" value='#9900FF' <%if rs22("titleColor")="#9900FF" then response.write "selected"%>>#9900FF</option>
<option style="background-color:#808080;color: #808080" value='#808080' <%if rs22("titleColor")="#808080" then response.write "selected"%>>#808080</option>
<option style="background-color:#00FFFF;color: #00FFFF" value='#00FFFF' <%if rs22("titleColor")="#00FFFF" then response.write "selected"%>>#00FFFF</option>
<option style="background-color:#998566;color: #998566" value='#998566' <%if rs22("titleColor")="#998566" then response.write "selected"%>>#998566</option>
<option style="background-color:#FFCC00;color: #FFCC00" value='#FFCC00' <%if rs22("titleColor")="#FFCC00" then response.write "selected"%>>#FFCC00</option>
</select> 字体：
<select size="1" name="FontMode">
<option value="0" <%if rs22("titleFont")="0" then response.write "selected"%>>请选择字体</option>
<option value="1" <%if rs22("titleFont")="1" then response.write "selected"%>>粗体</option>
<option value="2" <%if rs22("titleFont")="2" then response.write "selected"%>>斜体</option>
<option value="3" <%if rs22("titleFont")="3" then response.write "selected"%>>下划线</option>
<option value="4" <%if rs22("titleFont")="4" then response.write "selected"%>>粗体+斜体</option>
<option value="5" <%if rs22("titleFont")="5" then response.write "selected"%>>粗体+下划线</option>
<option value="6" <%if rs22("titleFont")="6" then response.write "selected"%>>斜体+下划线</option>
</select>
</td>
</tr>
<script language="javascript">
function show1(yn){
ss=yn;
if (ss=="1"){
document.getElementById("curl1").style.display='';
}
else
{
document.getElementById("curl1").style.display='none';
}
}
</script>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>是否转向外部连接</strong>: </td>
<td width="608" height="30" align="left" bgcolor="#EDF8FE">
<input type="radio" name="isoutLink" value="0" onclick="show1(0)" <%if rs22("is_link_class")="0" then response.write "checked"%>> 否
<input type="radio" name="isoutLink" onclick="show1(1)" value="1" <%if rs22("is_link_class")="1" then response.write "checked"%>> 是</td>
</tr>
<tr id="curl1" style="display:none">
<td width="122" height="30" align="left" bgcolor="#ffffff"><strong>转向外部连接URL</strong> </td>
<td width="608" align="left" bgcolor="#EDF8FE">
<input type="text" name="TurnLinkUrl" size="45" value="<%=rs22("outlink")%>"></td>
</tr>
<script language="javascript">
sss=document.getElementById("curl1");
<%if rs22("is_link_class")="1" then response.write "sss.style.display='';"%>
</script>
<tr>
<td width="122" height="30" align="left" bgcolor="#ffffff"><b>上传图片：</b></td>
<td width="608" align="left" bgcolor="#EDF8FE"><iframe name="image" frameborder="0" width='100%' height="69" scrolling="no" src="../D_upfile.asp"></iframe></td>
</tr>
<tr>
<td width="122" height="74" align="left" bgcolor="#ffffff"><b>频道标志图片：</b></td>
<td width="608" align="left" valign="top" bgcolor="#B0E1FB"><input name="ImageUrl" type="text" id="ImageUrl" size="60" value="<%=Rs22("channel_pic")%>" onpropertychange="document.all.pre.src=this.value;">
<input type="hidden" name="UploadFileList" id="UploadFileList" onChange="doChange(this,document.myform.ImageFileList)" value="<%=Rs22("Uploadfile_list")%>">
<br>直接从上传图片中选择：
<%
Function Initpics(UploadFileList, ImageUrl)
If cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then
response.end
End If
Dim i
InitSelect = "<select name='ImageFileList' onChange=""ImageUrl.value=this.value;"">"
InitSelect = InitSelect & "<option value=''>不选择频道标志图片</option>"
If Not IsNull(UploadFileList) Then
UploadFileList = Split(UploadFileList, "|")
For i = 0 To UBound(UploadFileList)
If UploadFileList(i) <> "" Then
InitSelect = InitSelect & "<option value=""" & UploadFileList(i) & """"
If UploadFileList(i) = ImageUrl Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & UploadFileList(i) & "</option>"
End If
Next
End If
Initpics = InitSelect & "</select>"
End Function
response.write Initpics(Rs22("Uploadfile_list"),Rs22("channel_pic"))
%>
<input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPic()' class="button"> <br />
预览:<img src="<%=Rs22("channel_pic")%>" width="80" height="72" id="pre"/></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#D5EFFD" colspan="2">
<input type="hidden" value="<%=request("id")%>" name="id"/>
<input type="submit" value="修 改" /></td>
</tr>
<tr>
<td height="80" align="center" bgcolor="#ffffff" colspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<form name="remoteuploadb" id="remoteuploadb" action="../D_remoteupload.asp" method="post" target="remoteupload">
<input type="hidden" name="content_UploadText" value=""/>
</form>
<iframe name="remoteupload" width="0" height="0"></iframe>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>